*- actualiza los analisis no habidos en el maestro
USE d:\publico\lima IN 0 ALIAS lima
USE x:\dat\scc\sur\com\sccmanss ORDER anss4ruc IN 0 ALIAS anss
SELECT lima
GO TOP 
DO WHILE !EOF()
   SELECT anss
   SEEK ALLTRIM(lima.ruc)
   IF FOUND()
      REPLACE fchnoh WITH lima.inicio
   ENDIF
   SELECT lima
   SKIP
ENDDO
CLOSE DATABASES